home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Caml Light 0.7 / Caml Light 0.7 source / src / tools / clrestore < prev    next >
Text File  |  1995-06-12  |  198b  |  15 lines
  1. set echo 0
  2. for f in {"parameters"}
  3.   set n 0
  4.   loop
  5.     evaluate m = {n} + 1
  6.     if "`exists "{f}.{m}"`"
  7.       move "{f}.{m}" "{f}.{n}"
  8.     else
  9.       break
  10.     end
  11.     evaluate n += 1
  12.   end
  13.   move -y "{f}.0" "{f}"
  14. end
  15.